Public Class WordReportRegion

#Region "Fields"
    Protected _report_region_year As String
    Protected _report_table_1_year As String
    Protected _report_table_1_station As Integer
    Protected _report_table_1_all_police As Integer
    Protected _report_table_1_all_police_diagnose As Integer
    Protected _report_table_1_all_police_absent As Integer
    Protected _report_table_2_year As String
    Protected _report_table_2_all_police_diagnose As Integer
    Protected _report_table_2_all_police_abnormal As Integer
    Protected _report_table_2_all_police_normal As Integer
    Protected _report_table_3_all_police_diagnose As Integer
    Protected _report_table_3_1_list_number As Short
    Protected _report_table_3_1_list_name As String
    Protected _report_table_3_1_all_police_diagnose As Integer
    Protected _report_table_3_1_all_police_abnormal As Integer
    Protected _report_table_3_2_list_number As Short
    Protected _report_table_3_2_list_name As String
    Protected _report_table_3_2_diagnose_year_befor_2 As Integer
    Protected _report_table_3_2_abnormal_year_befor_2 As Integer
    Protected _report_table_3_2_diagnose_year_befor_1 As Integer
    Protected _report_table_3_2_abnormal_year_befor_1 As Integer
    Protected _report_table_3_2_diagnose_year_now As Integer
    Protected _report_table_3_2_abnormal_year_now As Integer
    Protected _report_table_4_all_police As Integer
    Protected _report_table_4_abnormal_number As String
    Protected _report_table_4_police_abnormal As Integer
    Protected _report_table_5_year As String
    Protected _report_table_5_station As Integer
    Protected _report_table_5_police As Integer
    Protected _report_table_5_income As Double
    Protected _report_table_5_outcome As Double
    Protected _report_table_5_profit As Double
    Protected _Data As ArrayList
    Protected _DataCurrent As Integer
#End Region

#Region "Properties"
    Public Property report_region_year() As String
        Get
            Return _report_region_year
        End Get
        Set(ByVal value As String)
            _report_region_year = value
        End Set
    End Property

    Public Property report_table_1_year() As String
        Get
            Return _report_table_1_year
        End Get
        Set(ByVal value As String)
            _report_table_1_year = value
        End Set
    End Property

    Public Property report_table_1_station() As Integer
        Get
            Return _report_table_1_station
        End Get
        Set(ByVal value As Integer)
            _report_table_1_station = value
        End Set
    End Property

    Public Property report_table_1_all_police() As Integer
        Get
            Return _report_table_1_all_police
        End Get
        Set(ByVal value As Integer)
            _report_table_1_all_police = value
        End Set
    End Property

    Public Property report_table_1_all_police_diagnose() As Integer
        Get
            Return _report_table_1_all_police_diagnose
        End Get
        Set(ByVal value As Integer)
            _report_table_1_all_police_diagnose = value
        End Set
    End Property

    Public Property report_table_1_all_police_absent() As Integer
        Get
            Return _report_table_1_all_police_absent
        End Get
        Set(ByVal value As Integer)
            _report_table_1_all_police_absent = value
        End Set
    End Property

    Public Property report_table_2_year() As String
        Get
            Return _report_table_2_year
        End Get
        Set(ByVal value As String)
            _report_table_2_year = value
        End Set
    End Property

    Public Property report_table_2_all_police_diagnose() As Integer
        Get
            Return _report_table_2_all_police_diagnose
        End Get
        Set(ByVal value As Integer)
            _report_table_2_all_police_diagnose = value
        End Set
    End Property

    Public Property report_table_2_all_police_abnormal() As Integer
        Get
            Return _report_table_2_all_police_abnormal
        End Get
        Set(ByVal value As Integer)
            _report_table_2_all_police_abnormal = value
        End Set
    End Property

    Public Property report_table_2_all_police_normal() As Integer
        Get
            Return _report_table_2_all_police_normal
        End Get
        Set(ByVal value As Integer)
            _report_table_2_all_police_normal = value
        End Set
    End Property

    Public Property report_table_3_all_police_diagnose() As Integer
        Get
            Return _report_table_3_all_police_diagnose
        End Get
        Set(ByVal value As Integer)
            _report_table_3_all_police_diagnose = value
        End Set
    End Property

    Public Property report_table_3_1_list_number() As Short
        Get
            Return _report_table_3_1_list_number
        End Get
        Set(ByVal value As Short)
            _report_table_3_1_list_number = value
        End Set
    End Property

    Public Property report_table_3_1_list_name() As String
        Get
            Return _report_table_3_1_list_name
        End Get
        Set(ByVal value As String)
            _report_table_3_1_list_name = value
        End Set
    End Property

    Public Property report_table_3_1_all_police_diagnose() As Integer
        Get
            Return _report_table_3_1_all_police_diagnose
        End Get
        Set(ByVal value As Integer)
            _report_table_3_1_all_police_diagnose = value
        End Set
    End Property

    Public Property report_table_3_1_all_police_abnormal() As Integer
        Get
            Return _report_table_3_1_all_police_abnormal
        End Get
        Set(ByVal value As Integer)
            _report_table_3_1_all_police_abnormal = value
        End Set
    End Property

    Public Property report_table_3_2_list_number() As Short
        Get
            Return _report_table_3_2_list_number
        End Get
        Set(ByVal value As Short)
            _report_table_3_2_list_number = value
        End Set
    End Property

    Public Property report_table_3_2_list_name() As String
        Get
            Return _report_table_3_2_list_name
        End Get
        Set(ByVal value As String)
            _report_table_3_2_list_name = value
        End Set
    End Property

    Public Property report_table_3_2_diagnose_year_befor_2() As Integer
        Get
            Return _report_table_3_2_diagnose_year_befor_2
        End Get
        Set(ByVal value As Integer)
            _report_table_3_2_diagnose_year_befor_2 = value
        End Set
    End Property

    Public Property report_table_3_2_abnormal_year_befor_2() As Integer
        Get
            Return _report_table_3_2_abnormal_year_befor_2
        End Get
        Set(ByVal value As Integer)
            _report_table_3_2_abnormal_year_befor_2 = value
        End Set
    End Property

    Public Property report_table_3_2_diagnose_year_befor_1() As Integer
        Get
            Return _report_table_3_2_diagnose_year_befor_1
        End Get
        Set(ByVal value As Integer)
            _report_table_3_2_diagnose_year_befor_1 = value
        End Set
    End Property

    Public Property report_table_3_2_abnormal_year_befor_1() As Integer
        Get
            Return _report_table_3_2_abnormal_year_befor_1
        End Get
        Set(ByVal value As Integer)
            _report_table_3_2_abnormal_year_befor_1 = value
        End Set
    End Property

    Public Property report_table_3_2_diagnose_year_now() As Integer
        Get
            Return _report_table_3_2_diagnose_year_now
        End Get
        Set(ByVal value As Integer)
            _report_table_3_2_diagnose_year_now = value
        End Set
    End Property

    Public Property report_table_3_2_abnormal_year_now() As Integer
        Get
            Return _report_table_3_2_abnormal_year_now
        End Get
        Set(ByVal value As Integer)
            _report_table_3_2_abnormal_year_now = value
        End Set
    End Property

    Public Property report_table_4_all_police() As Integer
        Get
            Return _report_table_4_all_police
        End Get
        Set(ByVal value As Integer)
            _report_table_4_all_police = value
        End Set
    End Property

    Public Property report_table_4_abnormal_number() As String
        Get
            Return _report_table_4_abnormal_number
        End Get
        Set(ByVal value As String)
            _report_table_4_abnormal_number = value
        End Set
    End Property

    Public Property report_table_4_police_abnormal() As Integer
        Get
            Return _report_table_4_police_abnormal
        End Get
        Set(ByVal value As Integer)
            _report_table_4_police_abnormal = value
        End Set
    End Property

    Public Property report_table_5_year() As String
        Get
            Return _report_table_5_year
        End Get
        Set(ByVal value As String)
            _report_table_5_year = value
        End Set
    End Property

    Public Property report_table_5_station() As Integer
        Get
            Return _report_table_5_station
        End Get
        Set(ByVal value As Integer)
            _report_table_5_station = value
        End Set
    End Property

    Public Property report_table_5_police() As Integer
        Get
            Return _report_table_5_police
        End Get
        Set(ByVal value As Integer)
            _report_table_5_police = value
        End Set
    End Property

    Public Property report_table_5_income() As Double
        Get
            Return _report_table_5_income
        End Get
        Set(ByVal value As Double)
            _report_table_5_income = value
        End Set
    End Property

    Public Property report_table_5_outcome() As Double
        Get
            Return _report_table_5_outcome
        End Get
        Set(ByVal value As Double)
            _report_table_5_outcome = value
        End Set
    End Property

    Public Property report_table_5_profit() As Double
        Get
            Return _report_table_5_profit
        End Get
        Set(ByVal value As Double)
            _report_table_5_profit = value
        End Set
    End Property
#End Region

#Region "Methods"
    Public Function getWordReportRegionYear() As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationYear"
        objCmd.CommandTimeout = 0

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Year")

        Return objDs
    End Function

    Public Function getsWordReportRegionYear() As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationYear"
        objCmd.CommandTimeout = 0

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Year")

        For Each objDr As System.Data.DataRow In objDs.Tables("Year").Rows
            Dim obj As New WordReportRegion()
            obj._report_region_year = objDr.Item("year")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getTable_1(ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable1"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table1")

        Return objDs
    End Function

    Public Function getsTable_1(ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable1"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table1")

        For Each objDr As System.Data.DataRow In objDs.Tables("Table1").Rows
            Dim obj As New WordReportRegion()
            obj._report_table_1_year = objDr.Item("year")
            obj._report_table_1_station = objDr.Item("station")
            obj._report_table_1_all_police = objDr.Item("all_police_in_station")
            obj._report_table_1_all_police_diagnose = objDr.Item("all_police_diagnose")
            obj._report_table_1_all_police_absent = objDr.Item("all_police_absent")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getTable_2(ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable2"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table2")

        Return objDs
    End Function

    Public Function getsTable_2(ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable2"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table2")

        For Each objDr As System.Data.DataRow In objDs.Tables("Table2").Rows
            Dim obj As New WordReportRegion()
            obj._report_table_2_year = objDr.Item("year")
            obj._report_table_2_all_police_diagnose = objDr.Item("all_police_diagnose")
            obj._report_table_2_all_police_abnormal = objDr.Item("all_police_abnormal")
            obj._report_table_2_all_police_normal = objDr.Item("all_police_normal")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getTable_3_1(ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable3_1"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table3_1")

        Return objDs
    End Function

    Public Function getsTable_3_1(ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable3_1"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table3_1")

        For Each objDr As System.Data.DataRow In objDs.Tables("Table3_1").Rows
            Dim obj As New WordReportRegion()
            obj._report_table_3_all_police_diagnose = objDr.Item("rcount")
            obj._report_table_3_1_list_number = objDr.Item("list_number")
            obj._report_table_3_1_list_name = objDr.Item("list_name_1")
            obj._report_table_3_1_all_police_diagnose = objDr.Item("sum_exam")
            obj._report_table_3_1_all_police_abnormal = objDr.Item("sum_result_false")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getTable_3_2(ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable3_2"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table3_2")

        Return objDs
    End Function

    Public Function getsTable_3_2(ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable3_2"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table3_2")

        For Each objDr As System.Data.DataRow In objDs.Tables("Table3_2").Rows
            Dim obj As New WordReportRegion()
            obj._report_table_3_2_list_number = objDr.Item("list_number")
            obj._report_table_3_2_list_name = objDr.Item("list_name")
            obj._report_table_3_2_diagnose_year_befor_2 = objDr.Item("all_year_2")
            obj._report_table_3_2_abnormal_year_befor_2 = objDr.Item("all_abnormal_2")
            obj._report_table_3_2_diagnose_year_befor_1 = objDr.Item("all_year_1")
            obj._report_table_3_2_abnormal_year_befor_1 = objDr.Item("all_abnormal_1")
            obj._report_table_3_2_diagnose_year_now = objDr.Item("all_year")
            obj._report_table_3_2_abnormal_year_now = objDr.Item("all_abnormal")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getTable_4(ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable4"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table4")

        Return objDs
    End Function

    Public Function getsTable_4(ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable4"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table4")

        For Each objDr As System.Data.DataRow In objDs.Tables("Table4").Rows
            Dim obj As New WordReportRegion()
            obj._report_table_4_all_police = objDr.Item("police_all")
            obj._report_table_4_abnormal_number = objDr.Item("number_abnormal")
            obj._report_table_4_police_abnormal = objDr.Item("police_abnormal")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getTable_5(ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable5"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table5")

        Return objDs
    End Function

    Public Function getsTable_5(ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportRegionTable5"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Table5")

        For Each objDr As System.Data.DataRow In objDs.Tables("Table5").Rows
            Dim obj As New WordReportRegion()
            obj._report_table_5_year = objDr.Item("year")
            obj._report_table_5_station = objDr.Item("station")
            obj._report_table_5_police = objDr.Item("police")
            obj._report_table_5_income = objDr.Item("income")
            obj._report_table_5_outcome = objDr.Item("outcome")
            obj._report_table_5_profit = objDr.Item("profit")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Sub LoadWordReportStationYear()
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsWordReportRegionYear()
    End Sub

    Public Sub LoadTable1(ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsTable_1(inYear)
    End Sub

    Public Sub LoadTable2(ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsTable_2(inYear)
    End Sub

    Public Sub LoadTable3_1(ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsTable_3_1(inYear)
    End Sub

    Public Sub LoadTable3_2(ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsTable_3_2(inYear)
    End Sub

    Public Sub LoadTable4(ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsTable_4(inYear)
    End Sub

    Public Sub LoadTable5(ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsTable_5(inYear)
    End Sub

    Public Function NextRecord() As Boolean
        If ((Not _Data Is Nothing) AndAlso (((Not _Data Is Nothing) AndAlso _
            (_DataCurrent < _Data.Count And _Data.Count > 0)))) Then
            Dim m_WordReportRegion As WordReportRegion = _Data(_DataCurrent)
            _report_region_year = m_WordReportRegion.report_region_year
            _report_table_1_year = m_WordReportRegion.report_table_1_year
            _report_table_1_station = m_WordReportRegion.report_table_1_station
            _report_table_1_all_police = m_WordReportRegion.report_table_1_all_police
            _report_table_1_all_police_diagnose = m_WordReportRegion.report_table_1_all_police_diagnose
            _report_table_1_all_police_absent = m_WordReportRegion._report_table_1_all_police_absent
            _report_table_2_year = m_WordReportRegion._report_table_2_year
            _report_table_2_all_police_diagnose = m_WordReportRegion._report_table_2_all_police_diagnose
            _report_table_2_all_police_abnormal = m_WordReportRegion._report_table_2_all_police_abnormal
            _report_table_2_all_police_normal = m_WordReportRegion._report_table_2_all_police_normal
            _report_table_3_all_police_diagnose = m_WordReportRegion._report_table_3_all_police_diagnose
            _report_table_3_1_list_number = m_WordReportRegion._report_table_3_1_list_number
            _report_table_3_1_list_name = m_WordReportRegion._report_table_3_1_list_name
            _report_table_3_1_all_police_diagnose = m_WordReportRegion._report_table_3_1_all_police_diagnose
            _report_table_3_1_all_police_abnormal = m_WordReportRegion._report_table_3_1_all_police_abnormal
            _report_table_3_2_list_number = m_WordReportRegion._report_table_3_2_list_number
            _report_table_3_2_list_name = m_WordReportRegion._report_table_3_2_list_name
            _report_table_3_2_diagnose_year_befor_2 = m_WordReportRegion._report_table_3_2_diagnose_year_befor_2
            _report_table_3_2_abnormal_year_befor_2 = m_WordReportRegion._report_table_3_2_abnormal_year_befor_2
            _report_table_3_2_diagnose_year_befor_1 = m_WordReportRegion._report_table_3_2_diagnose_year_befor_1
            _report_table_3_2_abnormal_year_befor_1 = m_WordReportRegion._report_table_3_2_abnormal_year_befor_1
            _report_table_3_2_diagnose_year_now = m_WordReportRegion._report_table_3_2_diagnose_year_now
            _report_table_3_2_abnormal_year_now = m_WordReportRegion._report_table_3_2_abnormal_year_now
            _report_table_4_all_police = m_WordReportRegion._report_table_4_all_police
            _report_table_4_abnormal_number = m_WordReportRegion._report_table_4_abnormal_number
            _report_table_4_police_abnormal = m_WordReportRegion._report_table_4_police_abnormal
            _report_table_5_year = m_WordReportRegion._report_table_5_year
            _report_table_5_station = m_WordReportRegion._report_table_5_station
            _report_table_5_police = m_WordReportRegion._report_table_5_police
            _report_table_5_income = m_WordReportRegion._report_table_5_income
            _report_table_5_outcome = m_WordReportRegion._report_table_5_outcome
            _report_table_5_profit = m_WordReportRegion._report_table_5_profit
            _DataCurrent += 1
            Return True
        End If
        Return False
    End Function
#End Region

End Class
